home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / amms20d.lha / amms / mbbatch / com / show_applications < prev    next >
Text File  |  1995-05-05  |  1KB  |  62 lines
  1. ;
  2. ;       NAME : SHOW APPLICATIONS
  3. ;
  4. ;       VERSION : V1.04 / 27.01.1994
  5. ;
  6. ;       FUNKTION : Zeigt neue Userantraege an.
  7. ;
  8. ;       Diese Batchdatei benutzt folgende Befehle :
  9. ;       -------------------------------------------
  10. ;       ECHO
  11. ;       MENU
  12. ;       DISK TEXT
  13. ;       EXTERN
  14. ;       ON ERROR
  15. ;       GOTO
  16. ;       EOD
  17. ;
  18. ;       Aufruf durch User : SHOW APPLICATIONS
  19. ;
  20. ;       Changes :
  21. ;
  22. ;       Konstanten :
  23. ;
  24. APPFILE="mbdat:antraege.txt"                    ; Textfile mir Antraegen
  25. ;
  26. ;       Programm :
  27. ;
  28.  
  29. ; Antraege anzeigen
  30.  
  31. _echo ""
  32. _echo "Neue Antraege ..."                       ; Ueberschrift ausgeben
  33. _echo ""
  34. _check file "'APPFILE'" NOFILE                  ; Wenn kein Text da, verzw.
  35. _disk text "'APPFILE'"                          ; Antraege anzeigen
  36. _on error                                       ; Bei Fehler abbrechen
  37.  
  38. ; Abfragen, ob Antragfile geloescht werden soll
  39.  
  40. _menu "File loeschen (J/N) ? n#left#" -    ; Loeschabfrage
  41.  "j"  DELETEFILE -
  42.  "n"  END -
  43.  "^M" END
  44.  
  45. ; Antragsfile loeschen
  46.  
  47. DELETEFILE:
  48. _echo ""                                        ; Leerzeile ausgeben
  49. _extern delete 'APPFILE'                        ; Antraege loeschen
  50. _echo ""                                        ; Leerzeile ausgeben
  51. _goto END                                       ; Sprung zum Ende
  52.  
  53. ; Keine neuen Antraege vorhanden
  54.  
  55. NOFILE:
  56. _echo "Keine neuen Antraege vorhanden ...^J"  ; Fehlermeldung ausgeben
  57.  
  58. ; Ende
  59.  
  60. END:
  61. _eod                                            ; ENDE
  62.